inherited crdBuilding: TcrdBuilding
  Left = 250
  Top = 105
  Width = 874
  Height = 558
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1089#1090#1088#1086#1077#1085#1080#1103
  Constraints.MinHeight = 430
  Constraints.MinWidth = 790
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 504
    Width = 866
    inherited BitBtn1: TBitBtn
      Left = 667
    end
    inherited BitBtn2: TBitBtn
      Left = 769
    end
  end
  inherited ToolBar1: TToolBar
    Width = 866
    object ToolButton10: TToolButton
      Left = 77
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 85
      Top = 0
      Action = AddBuilingTraits
      ParentShowHint = False
      ShowHint = True
    end
  end
  object PageControl: TPageControl [2]
    Left = 0
    Top = 29
    Width = 866
    Height = 475
    ActivePage = tsMain
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnChange = PageControlChange
    object tsMain: TTabSheet
      Caption = #1057#1090#1088#1086#1077#1085#1080#1077
      object gbServices: TGroupBox
        Left = 261
        Top = 0
        Width = 597
        Height = 447
        Align = alClient
        Caption = ' '#1059#1089#1083#1091#1075#1080' '
        TabOrder = 0
        object dbgServices: TDBGridEh
          Left = 2
          Top = 41
          Width = 593
          Height = 404
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dscServices
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          SortLocal = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnDblClick = dbgServicesDblClick
          Columns = <
            item
              EditButtons = <>
              FieldName = 'DOGOVOR_ID'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'SER_NAME'
              Footers = <>
              Width = 260
            end
            item
              EditButtons = <>
              FieldName = 'SUPPLIER_NAME'
              Footers = <>
              Width = 171
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
        object ToolBar4: TToolBar
          Left = 2
          Top = 15
          Width = 593
          Height = 26
          Caption = 'ToolBar2'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Images = MAIN.ImageList
          ParentFont = False
          TabOrder = 1
          object ToolButton14: TToolButton
            Left = 0
            Top = 0
            Action = aServiceAdd
            ParentShowHint = False
            ShowHint = True
          end
          object ToolButton15: TToolButton
            Left = 23
            Top = 0
            Action = aServiceEdit
            ParentShowHint = False
            ShowHint = True
          end
          object ToolButton16: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton7'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton17: TToolButton
            Left = 54
            Top = 0
            Action = aServiceDel
            ParentShowHint = False
            ShowHint = True
          end
          object ToolButton48: TToolButton
            Left = 77
            Top = 0
            Width = 8
            Caption = 'ToolButton48'
            ImageIndex = 3
            Style = tbsSeparator
          end
          object ToolButton5: TToolButton
            Left = 85
            Top = 0
            Caption = 'ToolButton5'
            ImageIndex = 12
            ParentShowHint = False
            ShowHint = True
          end
          object ToolButton7: TToolButton
            Left = 108
            Top = 0
            Width = 8
            Caption = 'ToolButton7'
            ImageIndex = 14
            Style = tbsSeparator
          end
          object ToolButton6: TToolButton
            Left = 116
            Top = 0
            Action = aChangeDogovors
            ParentShowHint = False
            ShowHint = True
          end
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 261
        Height = 447
        Align = alLeft
        Caption = ' '#1040#1076#1088#1077#1089' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        PopupMenu = pmBuildProp
        TabOrder = 1
        object Label1: TLabel
          Left = 24
          Top = 168
          Width = 50
          Height = 13
          Alignment = taRightJustify
          Caption = #1053#1072#1079#1074#1072#1085#1080#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 42
          Top = 48
          Width = 32
          Height = 13
          Alignment = taRightJustify
          Caption = #1059#1083#1080#1094#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 43
          Top = 72
          Width = 31
          Height = 13
          Alignment = taRightJustify
          Caption = #1056#1072#1081#1086#1085
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 34
          Top = 96
          Width = 40
          Height = 13
          Alignment = taRightJustify
          Caption = #8470' '#1076#1086#1084#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 38
          Top = 120
          Width = 36
          Height = 13
          Alignment = taRightJustify
          Caption = #1050#1086#1088#1087#1091#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label21: TLabel
          Left = 5
          Top = 144
          Width = 69
          Height = 13
          Alignment = taRightJustify
          Caption = #1058#1080#1087' '#1089#1090#1088#1086#1077#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 23
          Top = 24
          Width = 51
          Height = 13
          Alignment = taRightJustify
          Caption = #1053#1072#1089'.'#1087#1091#1085#1082#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeBuildName: TDBEditEh
          Left = 80
          Top = 166
          Width = 167
          Height = 19
          AlwaysShowBorder = True
          DataField = 'NAME'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 6
          Visible = True
        end
        object dblBuildType: TDBLookupComboboxEh
          Left = 80
          Top = 142
          Width = 167
          Height = 19
          AlwaysShowBorder = True
          DataField = 'BUILDNAME'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dscBuildName
          ParentFont = False
          TabOrder = 5
          Visible = True
        end
        object dbeCorpus: TDBEditEh
          Left = 80
          Top = 118
          Width = 51
          Height = 19
          AlwaysShowBorder = True
          DataField = 'CORPS'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 4
          Visible = True
        end
        object dbeHouse: TDBEditEh
          Left = 80
          Top = 94
          Width = 51
          Height = 19
          AlwaysShowBorder = True
          DataField = 'HOUSE'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 3
          Visible = True
        end
        object dblAreas: TDBLookupComboboxEh
          Left = 80
          Top = 70
          Width = 167
          Height = 19
          AlwaysShowBorder = True
          DataField = 'AREA_ID'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'AREA_NAME'
          ListSource = dscAreas
          ParentFont = False
          TabOrder = 2
          Visible = True
        end
        object dblStreets: TDBLookupComboboxEh
          Left = 80
          Top = 46
          Width = 167
          Height = 19
          AlwaysShowBorder = True
          DataField = 'STREET_ID'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'CODE'
          ListField = 'STREET'
          ListSource = dscStreets
          ParentFont = False
          TabOrder = 1
          Visible = True
        end
        object dblTowns: TDBLookupComboboxEh
          Left = 80
          Top = 22
          Width = 167
          Height = 19
          AlwaysShowBorder = True
          DataField = 'TOWN_ID'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'CODE'
          ListField = 'NAME'
          ListSource = dscTowns
          ParentFont = False
          TabOrder = 0
          Visible = True
        end
      end
    end
    object tsProperties: TTabSheet
      Caption = #1057#1074#1086#1081#1089#1090#1074#1072
      ImageIndex = 1
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 369
        Height = 447
        Align = alLeft
        Caption = ' '#1061#1072#1088#1072#1082#1090#1077#1088#1080#1089#1090#1080#1082#1072' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label15: TLabel
          Left = 8
          Top = 68
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1054#1089#1085#1086#1074#1085#1072#1103' '#1074#1099#1089#1086#1090#1072' '#1087#1086#1084#1077#1097#1077#1085#1080#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 8
          Top = 44
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1052#1072#1090#1077#1088#1080#1072#1083' '#1089#1090#1077#1085
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label20: TLabel
          Left = 8
          Top = 92
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1052#1072#1082#1089#1080#1084#1072#1083#1100#1085#1072#1103' '#1101#1090#1072#1078#1085#1086#1089#1090#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 8
          Top = 116
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1086#1076#1098#1077#1079#1076#1086#1074' '#1074' '#1079#1076#1072#1085#1080#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 8
          Top = 140
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1087#1086#1089#1090#1088#1086#1081#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 8
          Top = 164
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1090#1077#1087#1077#1085#1100' '#1080#1079#1085#1086#1089#1072' '#1079#1076#1072#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label19: TLabel
          Left = 8
          Top = 188
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1051#1080#1092#1090' '#1085#1072#1095#1080#1089#1083#1103#1077#1090#1089#1103' '#1089' '#1101#1090#1072#1078#1072' '#8470
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 8
          Top = 20
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1050#1072#1076#1072#1089#1090#1088#1086#1074#1099#1081' '#1085#1086#1084#1077#1088
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 8
          Top = 236
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1050#1086#1101#1092'.'#1090#1077#1082#1091#1097#1077#1075#1086' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 8
          Top = 260
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1082#1072#1087'.'#1088#1077#1084#1086#1085#1090#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 8
          Top = 212
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1083#1080#1092#1090#1086#1074' '#1074' '#1087#1086#1076#1098#1077#1079#1076#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 8
          Top = 284
          Width = 163
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1090#1077#1087#1077#1085#1100' '#1073#1083#1072#1075#1086#1091#1089#1090#1088#1086#1081#1089#1090#1074#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeRegNum: TDBEditEh
          Left = 180
          Top = 18
          Width = 181
          Height = 19
          AlwaysShowBorder = True
          DataField = 'REGNUM'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 0
          Visible = True
        end
        object dblWMat: TDBLookupComboboxEh
          Left = 180
          Top = 42
          Width = 181
          Height = 19
          AlwaysShowBorder = True
          DataField = 'MATERIAL'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dscMaterial
          ParentFont = False
          TabOrder = 1
          Visible = True
        end
        object dbeHeigth: TDBEditEh
          Left = 180
          Top = 66
          Width = 43
          Height = 19
          AlwaysShowBorder = True
          DataField = 'HEIGHT'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 2
          Visible = True
        end
        object dbeFloor: TDBEditEh
          Left = 180
          Top = 90
          Width = 43
          Height = 19
          AlwaysShowBorder = True
          DataField = 'ETAZH'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 3
          Visible = True
        end
        object dbeDoorway: TDBEditEh
          Left = 180
          Top = 114
          Width = 43
          Height = 19
          AlwaysShowBorder = True
          DataField = 'DOORCOUNT'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 4
          Visible = True
        end
        object dteBuildDate: TDBDateTimeEditEh
          Left = 180
          Top = 138
          Width = 87
          Height = 19
          AlwaysShowBorder = True
          DataField = 'BUILDDATE'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          TabOrder = 5
          Visible = True
        end
        object dblWear: TDBLookupComboboxEh
          Left = 180
          Top = 162
          Width = 181
          Height = 19
          AlwaysShowBorder = True
          DataField = 'DETERIOR'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'DIR_VAL'
          ListField = 'NAME'
          ListSource = dscDeterior
          ParentFont = False
          TabOrder = 6
          Visible = True
        end
        object dbeLiftStart: TDBEditEh
          Left = 180
          Top = 186
          Width = 43
          Height = 19
          AlwaysShowBorder = True
          DataField = 'LIFT_START'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 7
          Visible = True
        end
        object dbeKoef: TDBEditEh
          Left = 180
          Top = 234
          Width = 43
          Height = 19
          AlwaysShowBorder = True
          DataField = 'MAINTKOEF'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 8
          Visible = True
        end
        object dteLestRem: TDBDateTimeEditEh
          Left = 180
          Top = 258
          Width = 87
          Height = 19
          AlwaysShowBorder = True
          DataField = 'DATA_R'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          TabOrder = 9
          Visible = True
        end
        object dbeLift: TDBEditEh
          Left = 180
          Top = 210
          Width = 43
          Height = 19
          AlwaysShowBorder = True
          DataField = 'LIFT'
          DataSource = dscBuilding
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 10
          Visible = True
        end
        object lcbC_GR: TDBLookupComboboxEh
          Left = 180
          Top = 282
          Width = 181
          Height = 19
          AlwaysShowBorder = True
          DataField = 'C_GR'
          DataSource = dscBuilding
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dscRimprovement
          ParentFont = False
          TabOrder = 11
          Visible = True
        end
      end
      object Panel2: TPanel
        Left = 369
        Top = 0
        Width = 489
        Height = 447
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 0
          Top = 0
          Width = 489
          Height = 354
          Align = alClient
          Caption = ' '#1059#1087#1088#1072#1074#1083#1077#1085#1080#1077' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object Label7: TLabel
            Left = 14
            Top = 44
            Width = 160
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label8: TLabel
            Left = 14
            Top = 68
            Width = 160
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1042#1080#1076' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label23: TLabel
            Left = 14
            Top = 20
            Width = 160
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1060#1086#1088#1084#1072' '#1091#1087#1088#1072#1074#1083#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label24: TLabel
            Left = 14
            Top = 92
            Width = 160
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1059#1095#1077#1090' '#1087#1086' '#1079#1076#1072#1085#1080#1102' '#1085#1077' '#1074#1077#1076#1077#1090#1089#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label25: TLabel
            Left = 14
            Top = 116
            Width = 160
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1055#1072#1089#1087#1086#1088#1090#1085#1099#1081' '#1091#1095#1077#1090
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label10: TLabel
            Left = 14
            Top = 140
            Width = 160
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1059#1095#1072#1089#1090#1086#1082
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBLookupComboboxEh4: TDBLookupComboboxEh
            Left = 180
            Top = 18
            Width = 181
            Height = 19
            AlwaysShowBorder = True
            DataField = 'MANAG_TYPE'
            DataSource = dscBuilding
            DropDownBox.Sizable = True
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'DIR_VAL'
            ListField = 'NAME'
            ListSource = dscManagType
            ParentFont = False
            TabOrder = 0
            Visible = True
          end
          object lcbManag: TDBLookupComboboxEh
            Left = 180
            Top = 42
            Width = 181
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'OWNER_ID'
            DataSource = dscBuilding
            DropDownBox.Sizable = True
            EditButtons = <
              item
                Action = aSetManag
                Style = ebsEllipsisEh
              end>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dscManags
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object DBLookupComboboxEh6: TDBLookupComboboxEh
            Left = 180
            Top = 66
            Width = 181
            Height = 19
            AlwaysShowBorder = True
            DataField = 'OWNERSHIPTYPE_ID'
            DataSource = dscBuilding
            DropDownBox.Sizable = True
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dscOwnership
            ParentFont = False
            TabOrder = 2
            Visible = True
          end
          object DBLookupComboboxEh7: TDBLookupComboboxEh
            Left = 180
            Top = 138
            Width = 181
            Height = 19
            AlwaysShowBorder = True
            DataField = 'ZKX_ID'
            DataSource = dscBuilding
            DropDownBox.Sizable = True
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dscZkx
            ParentFont = False
            TabOrder = 5
            Visible = True
          end
          object DBCheckBoxEh1: TDBCheckBoxEh
            Left = 180
            Top = 90
            Width = 19
            Height = 17
            AlwaysShowBorder = True
            DataField = 'TRANSFERRED'
            DataSource = dscBuilding
            Flat = True
            TabOrder = 3
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBoxEh2: TDBCheckBoxEh
            Left = 180
            Top = 114
            Width = 19
            Height = 17
            AlwaysShowBorder = True
            DataField = 'IS_PASSPORT'
            DataSource = dscBuilding
            Flat = True
            TabOrder = 4
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
        end
        object GroupBox9: TGroupBox
          Left = 0
          Top = 354
          Width = 489
          Height = 93
          Align = alBottom
          Caption = ' '#1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object Label26: TLabel
            Left = 30
            Top = 20
            Width = 37
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1086#1079#1076#1072#1083
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label27: TLabel
            Left = 216
            Top = 18
            Width = 77
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label28: TLabel
            Left = 21
            Top = 44
            Width = 46
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1079#1084#1077#1085#1080#1083
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label29: TLabel
            Left = 208
            Top = 42
            Width = 85
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label42: TLabel
            Left = 50
            Top = 68
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object dbeCreater: TDBEditEh
            Left = 72
            Top = 16
            Width = 129
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'CREATOR'
            DataSource = dscBuilding
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Visible = True
          end
          object dbeModifier: TDBEditEh
            Left = 72
            Top = 40
            Width = 129
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'MODIFIER'
            DataSource = dscBuilding
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object dbeID: TDBEditEh
            Left = 72
            Top = 64
            Width = 93
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'ID'
            DataSource = dscBuilding
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
            Visible = True
          end
          object dteModifyDate: TDBDateTimeEditEh
            Left = 298
            Top = 38
            Width = 93
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'MODIFYDATE'
            DataSource = dscBuilding
            Enabled = False
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
            Visible = True
          end
          object dteCreateDate: TDBDateTimeEditEh
            Left = 298
            Top = 14
            Width = 93
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'CREATEDATE'
            DataSource = dscBuilding
            Enabled = False
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ReadOnly = True
            TabOrder = 4
            Visible = True
          end
        end
      end
    end
    object tsBuildingHist: TTabSheet
      Caption = #1048#1089#1090#1086#1088#1080#1103
      ImageIndex = 2
      OnShow = tsBuildingHistShow
      object dbgBuildingHist: TDBGridEh
        Left = 0
        Top = 26
        Width = 858
        Height = 421
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dscBuildingHist
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        OddRowColor = clInactiveCaptionText
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghColumnResize, dghColumnMove]
        ParentFont = False
        ReadOnly = True
        RowDetailPanel.Color = clBtnFace
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnDblClick = dbgServicesDblClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RFIELD_DESCRIPT'
            Footers = <>
            Width = 147
          end
          item
            EditButtons = <>
            FieldName = 'ROLD_VALUE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RDOCDATE'
            Footers = <>
            Width = 93
          end
          item
            EditButtons = <>
            FieldName = 'MODIFIER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RMODIFYDATE'
            Footers = <>
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
      object ToolBar2: TToolBar
        Left = 0
        Top = 0
        Width = 858
        Height = 26
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Images = MAIN.ImageList
        ParentFont = False
        TabOrder = 1
        object ToolButton9: TToolButton
          Left = 0
          Top = 0
          Hint = #1059#1076#1072#1083#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
          Caption = #1059#1076#1072#1083#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
          ImageIndex = 2
          ParentShowHint = False
          ShowHint = True
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 380
    Top = 192
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aServiceAdd: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      ImageIndex = 9
      OnExecute = aServiceAddExecute
    end
    object aServiceEdit: TAction
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      ImageIndex = 5
      OnExecute = dbgServicesDblClick
    end
    object aServiceDel: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      ImageIndex = 2
    end
    object aHistDel: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080
      ImageIndex = 2
      OnExecute = aHistDelExecute
    end
    object aSetManag: TAction
      Caption = #1057#1084#1077#1085#1080#1090#1100' '#1059#1050
      Hint = #1057#1084#1077#1085#1080#1090#1100' '#1059#1050
      OnExecute = aSetManagExecute
    end
    object aChangeDogovors: TAction
      Hint = #1052#1072#1089#1089#1086#1074#1086#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1074#1086#1081#1090#1074' '#1076#1086#1075#1086#1074#1086#1088#1086#1074' '#1072#1073#1086#1085#1077#1085#1090#1086#1074' '#1079#1076#1072#1085#1080#1103
      ImageIndex = 18
      OnExecute = aChangeDogovorsExecute
    end
    object aEnableChangeAddress: TAction
      Caption = #1056#1072#1079#1088#1077#1096#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1072#1076#1088#1077#1089#1072' '#1079#1076#1072#1085#1080#1103
      OnExecute = aEnableChangeAddressExecute
    end
    object AddBuilingTraits: TAction
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1089#1090#1088#1086#1077#1085#1080#1103
      Hint = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1089#1090#1088#1086#1077#1085#1080#1103
      ImageIndex = 25
      OnExecute = AddBuilingTraitsExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdBuildings'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      
        'PageControl.tsBuildingHist.dbgBuildingHist.<P>.Columns.ColumnsIn' +
        'dex'
      
        'PageControl.tsBuildingHist.dbgBuildingHist.<P>.Columns.<ForAllIt' +
        'ems>.Width'
      
        'PageControl.tsMain.gbServices.dbgServices.<P>.Columns.ColumnsInd' +
        'ex'
      
        'PageControl.tsMain.gbServices.dbgServices.<P>.Columns.<ForAllIte' +
        'ms>.Width')
  end
  object trBuilding: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 644
    Top = 22
  end
  object dsBuilding: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE BUILDINGS'
      'SET NAME = :NAME,'
      '    STREET_ID = :STREET_ID,'
      '    AREA_ID = :AREA_ID,'
      '    HOUSE = :HOUSE,'
      '    CORPS = :CORPS,'
      '    REGNUM = :REGNUM,'
      '    OWNERSHIPTYPE_ID = :OWNERSHIPTYPE_ID,'
      '--    OWNER_ID = :OWNER_ID,'
      '    MAINTKOEF = :MAINTKOEF,'
      '    ZKX_ID = :ZKX_ID,'
      '    BUILDDATE = :BUILDDATE,'
      '    DATA_R = :DATA_R,'
      '    DETERIOR = :DETERIOR,'
      '    MATERIAL = :MATERIAL,'
      '    MODIFYDATE = :MODIFYDATE,'
      '    HEIGHT = :HEIGHT,'
      '    GEU = :GEU,'
      '    LIFT_START = :LIFT_START,'
      '    ETAZH = :ETAZH,'
      '    IS_PASSPORT = :IS_PASSPORT,'
      '    BUILDNAME = :BUILDNAME,'
      '    DOORCOUNT = :DOORCOUNT,'
      '    C_CROVL = :C_CROVL,'
      '    C_GR = :C_GR,'
      '    MANAG_TYPE = :MANAG_TYPE,'
      '    LIFT = :LIFT,'
      '    TRANSFERRED = :TRANSFERRED'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    BUILDINGS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO BUILDINGS('
      '    NAME,'
      '    STREET_ID,'
      '    AREA_ID,'
      '    HOUSE,'
      '    CORPS,'
      '    REGNUM,'
      '    OWNER_ID,'
      '    OWNERSHIPTYPE_ID,'
      '    MAINTKOEF,'
      '    ZKX_ID,'
      '    BUILDDATE,'
      '    DATA_R,'
      '    DETERIOR,'
      '    MATERIAL,'
      '    HEIGHT,'
      '    GEU,'
      '    LIFT_START,'
      '    ETAZH,'
      '    IS_PASSPORT,'
      '    BUILDNAME,'
      '    DOORCOUNT,'
      '    C_CROVL,'
      '    C_GR,'
      '    MANAG_TYPE,'
      '    LIFT,'
      '    TRANSFERRED'
      ')'
      'VALUES('
      '    :NAME,'
      '    :STREET_ID,'
      '    :AREA_ID,'
      '    :HOUSE,'
      '    :CORPS,'
      '    :REGNUM,'
      '    :OWNER_ID,'
      '    :OWNERSHIPTYPE_ID,'
      '    :MAINTKOEF,'
      '    :ZKX_ID,'
      '    :BUILDDATE,'
      '    :DATA_R,'
      '    :DETERIOR,'
      '    :MATERIAL,'
      '    :HEIGHT,'
      '    :GEU,'
      '    :LIFT_START,'
      '    :ETAZH,'
      '    :IS_PASSPORT,'
      '    :BUILDNAME,'
      '    :DOORCOUNT,'
      '    :C_CROVL,'
      '    :C_GR,'
      '    :MANAG_TYPE,'
      '    :LIFT,'
      '    :TRANSFERRED'
      ')'
      'returning id')
    RefreshSQL.Strings = (
      'select b.ID,'
      'b.NAME,'
      'b.STREET_ID,'
      
        '(select rt.name from rstreets rst, pas_rtown rt where rst.code =' +
        ' b.street_id and rt.code = rst.town_id) as town,'
      
        '(select rst.street from rstreets rst where rst.code = b.street_i' +
        'd) as street,'
      'b.AREA_ID,'
      
        '(select rta.area_name from rtown_areas rta where rta.id = b.area' +
        '_id) as area_name,'
      'b.HOUSE,'
      'b.CORPS,'
      'b.REGNUM,'
      'b.OWNER_ID,'
      'b.OWNERSHIPTYPE_ID,'
      'b.MAINTKOEF,'
      'b.ZKX_ID,'
      'b.BUILDDATE,'
      'b.DATA_R,'
      'b.DETERIOR,'
      'b.MATERIAL,'
      'b.CREATEDATE,'
      'b.MODIFYDATE,'
      'b.HEIGHT,'
      'b.GEU,'
      'b.LIFT_START,'
      
        '(select u1.surname from username u1 where u1.id = b.MODIFYUSERID' +
        ') as modifier,'
      
        '(select u1.surname from username u1 where u1.id = b.CREATEUSERID' +
        ') as creator,'
      'b.ETAZH,'
      'b.IS_PASSPORT,'
      'b.BUILDNAME,'
      'b.DOORCOUNT,'
      'b.C_CROVL,'
      'b.C_GR,'
      'b.MANAG_TYPE,'
      'b.LIFT,'
      'b.TRANSFERRED'
      'from buildings b'
      'where B.ID = :OLD_ID'
      '     '
      '    ')
    SelectSQL.Strings = (
      'select b.ID,'
      '       b.NAME,'
      '       b.STREET_ID,'
      
        '       (select rst.town_id from rstreets rst where rst.code = b.' +
        'street_id) as town_id,'
      
        '       (select rt.name from rstreets rst, pas_rtown rt where rst' +
        '.code = b.street_id and rt.code = rst.town_id) as town,'
      
        '       (select rst.street from rstreets rst where rst.code = b.s' +
        'treet_id) as street,'
      '       b.AREA_ID,'
      
        '       (select rta.area_name from rtown_areas rta where rta.id =' +
        ' b.area_id) as area_name,'
      '       b.HOUSE,'
      '       b.CORPS,'
      '       b.REGNUM,'
      '       b.OWNER_ID,'
      '       b.OWNERSHIPTYPE_ID,'
      '       b.MAINTKOEF,'
      '       b.ZKX_ID,'
      '       b.BUILDDATE,'
      '       b.DATA_R,'
      '       b.DETERIOR,'
      '       b.MATERIAL,'
      '       b.CREATEDATE,'
      '       b.MODIFYDATE,'
      '       b.HEIGHT,'
      '       b.GEU,'
      '       b.LIFT_START,'
      
        '       (select u1.surname from username u1 where u1.id = b.MODIF' +
        'YUSERID) as modifier,'
      
        '       (select u1.surname from username u1 where u1.id = b.CREAT' +
        'EUSERID) as creator,'
      '       b.ETAZH,'
      '       b.IS_PASSPORT,'
      '       b.BUILDNAME,'
      '       b.DOORCOUNT,'
      '       b.C_CROVL,'
      '       b.C_GR,'
      '       b.MANAG_TYPE,'
      '       b.TRANSFERRED,'
      '       b.LIFT,'
      '       (select a.id from abonents a'
      
        '          where a.building_id = b.id and a.client_id = -1) as ab' +
        'onent_id'
      'from buildings b'
      'where b.id = :building_id')
    AfterOpen = dsBuildingAfterOpen
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trWrite
    Left = 645
    Top = 55
    object dsBuildingID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsBuildingNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
    object dsBuildingSTREET_ID: TFIBIntegerField
      FieldName = 'STREET_ID'
    end
    object dsBuildingSTREET: TFIBStringField
      FieldName = 'STREET'
      Size = 120
      EmptyStrToNull = True
    end
    object dsBuildingAREA_ID: TFIBIntegerField
      FieldName = 'AREA_ID'
    end
    object dsBuildingAREA_NAME: TFIBStringField
      FieldName = 'AREA_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsBuildingHOUSE: TFIBStringField
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsBuildingCORPS: TFIBStringField
      FieldName = 'CORPS'
      Size = 3
      EmptyStrToNull = True
    end
    object dsBuildingREGNUM: TFIBStringField
      FieldName = 'REGNUM'
      Size = 16
      EmptyStrToNull = True
    end
    object dsBuildingOWNER_ID: TFIBIntegerField
      FieldName = 'OWNER_ID'
    end
    object dsBuildingOWNERSHIPTYPE_ID: TFIBIntegerField
      FieldName = 'OWNERSHIPTYPE_ID'
    end
    object dsBuildingMAINTKOEF: TFIBBCDField
      FieldName = 'MAINTKOEF'
      Size = 2
      RoundByScale = True
    end
    object dsBuildingZKX_ID: TFIBIntegerField
      FieldName = 'ZKX_ID'
    end
    object dsBuildingBUILDDATE: TFIBDateField
      FieldName = 'BUILDDATE'
    end
    object dsBuildingDATA_R: TFIBDateField
      FieldName = 'DATA_R'
    end
    object dsBuildingDETERIOR: TFIBIntegerField
      FieldName = 'DETERIOR'
    end
    object dsBuildingMATERIAL: TFIBIntegerField
      FieldName = 'MATERIAL'
    end
    object dsBuildingCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsBuildingMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsBuildingHEIGHT: TFIBBCDField
      FieldName = 'HEIGHT'
      Size = 2
      RoundByScale = True
    end
    object dsBuildingGEU: TFIBIntegerField
      FieldName = 'GEU'
    end
    object dsBuildingLIFT_START: TFIBSmallIntField
      FieldName = 'LIFT_START'
    end
    object dsBuildingMODIFIER: TFIBStringField
      FieldName = 'MODIFIER'
      Size = 35
      EmptyStrToNull = True
    end
    object dsBuildingCREATOR: TFIBStringField
      FieldName = 'CREATOR'
      Size = 35
      EmptyStrToNull = True
    end
    object dsBuildingETAZH: TFIBSmallIntField
      FieldName = 'ETAZH'
    end
    object dsBuildingIS_PASSPORT: TFIBSmallIntField
      FieldName = 'IS_PASSPORT'
    end
    object dsBuildingBUILDNAME: TFIBSmallIntField
      FieldName = 'BUILDNAME'
    end
    object dsBuildingDOORCOUNT: TFIBIntegerField
      FieldName = 'DOORCOUNT'
    end
    object dsBuildingC_CROVL: TFIBSmallIntField
      FieldName = 'C_CROVL'
    end
    object dsBuildingMANAG_TYPE: TFIBIntegerField
      FieldName = 'MANAG_TYPE'
    end
    object dsBuildingTRANSFERRED: TFIBSmallIntField
      FieldName = 'TRANSFERRED'
    end
    object dsBuildingTOWN: TFIBStringField
      FieldName = 'TOWN'
      Size = 60
      EmptyStrToNull = True
    end
    object dsBuildingABONENT_ID: TFIBIntegerField
      FieldName = 'ABONENT_ID'
    end
    object dsBuildingTOWN_ID: TFIBIntegerField
      FieldName = 'TOWN_ID'
    end
    object dsBuildingLIFT: TFIBSmallIntField
      FieldName = 'LIFT'
    end
    object dsBuildingC_GR: TFIBIntegerField
      FieldName = 'C_GR'
    end
  end
  object dscBuilding: TDataSource
    DataSet = dsBuilding
    Left = 681
    Top = 55
  end
  object dsServices: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    DOGOVOR_ID,'
      '    SERVICE_ID,'
      '    SER_NAME,'
      '    SUPPLIER_NAME,'
      '    (select s.group_id from services s'
      
        '       where s.id = PROC_BUILDDOGOVORS_GET.service_id) as group_' +
        'id,'
      '    (select d.supplier_id from dogovors d'
      
        '       where d.id = PROC_BUILDDOGOVORS_GET.dogovor_id) as suppli' +
        'er_id'
      'FROM'
      '    PROC_BUILDDOGOVORS_GET (:PBUILDING_ID) ')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trWrite
    Left = 645
    Top = 83
    object dsServicesDOGOVOR_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1044#1086#1075#1086#1074#1086#1088#1072
      FieldName = 'DOGOVOR_ID'
    end
    object dsServicesSER_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SER_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsServicesSUPPLIER_NAME: TFIBStringField
      DisplayLabel = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075'/'#1055#1086#1089#1090#1072#1074#1097#1080#1082
      FieldName = 'SUPPLIER_NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsServicesSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsServicesGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
    object dsServicesSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
  end
  object dscServices: TDataSource
    DataSet = dsServices
    Left = 681
    Top = 83
  end
  object dsBuildName: TpFIBDataSet
    SelectSQL.Strings = (
      'select  rt.id, rt.name'
      'from rrealtytypes rt'
      'order by 1')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 111
  end
  object dscBuildName: TDataSource
    DataSet = dsBuildName
    Left = 681
    Top = 111
  end
  object dsMaterial: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    HEAT_COEF'
      'FROM'
      '    RMATERIALS '
      'order by 2')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 139
    object dsMaterialID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsMaterialNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsMaterialHEAT_COEF: TFIBFloatField
      FieldName = 'HEAT_COEF'
    end
  end
  object dscMaterial: TDataSource
    DataSet = dsMaterial
    Left = 681
    Top = 139
  end
  object dsDeterior: TpFIBDataSet
    SelectSQL.Strings = (
      'select  d.dir_val, d.name'
      'from directory d'
      'where upper(d.class) = '#39'DETERIOR'#39)
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 167
  end
  object dscDeterior: TDataSource
    DataSet = dsDeterior
    Left = 681
    Top = 167
  end
  object dsManagType: TpFIBDataSet
    SelectSQL.Strings = (
      'select  d.dir_val, d.name'
      'from directory d'
      'where upper(d.class) = '#39'MANAG_TYPE'#39)
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 195
  end
  object dscManagType: TDataSource
    DataSet = dsManagType
    Left = 681
    Top = 195
  end
  object dsManags: TpFIBDataSet
    SelectSQL.Strings = (
      'select  u.id, u.name'
      'from userorg u'
      'where getbit(u.supplier,1) = 1')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 223
  end
  object dscManags: TDataSource
    DataSet = dsManags
    Left = 681
    Top = 223
  end
  object dsOwnership: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    ROWNERSHIP '
      'order by 2')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 251
    object dsOwnershipID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsOwnershipNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscOwnership: TDataSource
    DataSet = dsOwnership
    Left = 681
    Top = 251
  end
  object dsZkx: TpFIBDataSet
    SelectSQL.Strings = (
      'select z.id, z.name from zkxs z')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 645
    Top = 279
  end
  object dscZkx: TDataSource
    DataSet = dsZkx
    Left = 681
    Top = 279
  end
  object dsTowns: TpFIBDataSet
    SelectSQL.Strings = (
      'select rt.code, rt.name from pas_rtown rt'
      'where rt.local = 1')
    AfterScroll = dsTownsAfterScroll
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 557
    Top = 57
    object dsTownsCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
    object dsTownsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsStreets: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT rst.code, rst.street'
      'from rstreets rst'
      'where rst.town_id = :town_id'
      'order by 2')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 557
    Top = 85
  end
  object dsAreas: TpFIBDataSet
    SelectSQL.Strings = (
      'select rta.id, rta.area_name '
      'from rtown_areas rta '
      'order by 2')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 557
    Top = 113
  end
  object dscAreas: TDataSource
    DataSet = dsAreas
    Left = 593
    Top = 113
  end
  object dscStreets: TDataSource
    DataSet = dsStreets
    Left = 593
    Top = 85
  end
  object dscTowns: TDataSource
    DataSet = dsTowns
    Left = 593
    Top = 57
  end
  object dsBuildingHist: TpFIBDataSet
    DeleteSQL.Strings = (
      'update trelations_histr'
      '  set is_deleted = 1'
      '  where id = :OLD_RRECORD_ID')
    SelectSQL.Strings = (
      'select p.rfield_name,'
      '       p.rold_value, '
      '       p.rdocdate, '
      
        '       (select rname from user_getfullname (p.rmodifyuserid)) as' +
        ' modifier,'
      '       p.rmodifydate, '
      '       p.rrecord_id, '
      '       p.rfield_descript,'
      '       cast(0 as smallint) as is_deleted'
      'from proc_building_get_hist(:pbuilding_id, :pdate) p'
      'order by p.rdocdate desc')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trWrite
    Left = 557
    Top = 147
    object dsBuildingHistRFIELD_NAME: TFIBStringField
      DisplayLabel = #1057#1074#1086#1081#1089#1090#1074#1086
      DisplayWidth = 20
      FieldName = 'RFIELD_NAME'
      Size = 32
      EmptyStrToNull = True
    end
    object dsBuildingHistROLD_VALUE: TFIBStringField
      DisplayLabel = #1057#1090#1072#1088#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077
      DisplayWidth = 30
      FieldName = 'ROLD_VALUE'
      Size = 255
      EmptyStrToNull = True
    end
    object dsBuildingHistRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072', '#1082#1086#1090#1086#1088#1086#1081' '#1087#1086#1084#1077#1085#1103#1083#1080
      FieldName = 'RDOCDATE'
    end
    object dsBuildingHistMODIFIER: TFIBStringField
      DisplayLabel = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100
      DisplayWidth = 25
      FieldName = 'MODIFIER'
      Size = 150
      EmptyStrToNull = True
    end
    object dsBuildingHistRMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'RMODIFYDATE'
    end
    object dsBuildingHistRRECORD_ID: TFIBIntegerField
      FieldName = 'RRECORD_ID'
    end
    object dsBuildingHistRFIELD_DESCRIPT: TFIBStringField
      DisplayLabel = #1057#1074#1086#1081#1089#1090#1074#1086
      DisplayWidth = 20
      FieldName = 'RFIELD_DESCRIPT'
      Size = 255
      EmptyStrToNull = True
    end
    object dsBuildingHistIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
    end
  end
  object dscBuildingHist: TDataSource
    DataSet = dsBuildingHist
    Left = 593
    Top = 147
  end
  object trWrite: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 524
    Top = 147
  end
  object dsRimprovement: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    NOTE'
      'FROM'
      '    RIMPROVEMENT '
      'order by name')
    Transaction = trBuilding
    Database = MAINDM.pMainDatabase
    Left = 557
    Top = 177
    object dsRimprovementID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsRimprovementNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsRimprovementNOTE: TFIBStringField
      FieldName = 'NOTE'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object dscRimprovement: TDataSource
    DataSet = dsRimprovement
    Left = 593
    Top = 177
  end
  object pmBuildProp: TPopupMenu
    Left = 168
    Top = 317
    object N1: TMenuItem
      Action = aEnableChangeAddress
    end
  end
end
